a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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**F LE**1D**F ORRAB 
FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR AbLgRA BBBBBBBB 
FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR AAAAAA BBBBBBBB 
FF 00 OO RR RR RR RR AA AA BB BB 
FF OO RR RR RR RR AA AA BB BB 
FF 00 OO RR RR RR RR AA AA BB BB 
FF 00 00 RR RR RR RR AA AA BB BB 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR AK AA BBBBBBBB 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR Aa AA BBBBBBBS 
FF 00 00 RR RR RR RR AAAAAAAAAA BB BB 
FF 00 0O RR RR RR RR AAAAAAAAAA §BB BB 
FF 00 OO RR RR RR RR AA AA BB BB cece 
FF 00 00 RR RR RR RR ba AA 6B BB cove 
FF 000000 RR RR RR RR AA AA 88888888 eoee 
FF 000000 RR RR RR RR AA AA BBBBBBBB eee 
LL IIIII] SSSSSSSS 
LL IIIT] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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FORSRAB = Return pointer to RAB of unit 15. -$ep-1984 00:41:5 AX-11 Bliss-32 V4.0-742 Page 1 
14-Sep-1984 90:93:35 FORRTL.SRCJFORRAB. B32; 1 ° (1) S 
901 ZTITLE FORSRAR - Return pointer to RAB of unit’ A 
§ MODULE FORSRAB ( A 
0003 DENT = "1-002" ' File: FORRAB.B32 Edit: SBL1002 i 
2096 } BEGIN ' 
G00? : i eeeeeeeeereeeereeeteroeeteeeneeeerererereereretereneaeeeeeeeeerererereneeeet 
'® 
0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0010 1 !* DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. * 
Bett : :* ALL RIGHTS RESERVED. * 
° ® 
oOi8 1 '® THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND copieD * 
0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 !* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3218 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bais : be TRANSFERRED. * 
:* fk 
B05s 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
BOs§ : re CORPORATION. * 
‘® ® 
0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ) eapamieaiti OF ITS * 
8 5 : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL = 
tr ® 
00 § 1 ie & 
oo g ! [ COSSRSRNOSSO RSL OR SEMAN DO TSOR ONSET ISH ITS SHER ST OTN SR ENTIRE OR NONE SRO RS IN EONS 
$080 1 
0031 1 !++ 
O03 ! FACILITY: FORTRAN Language Support 
Bo ee ‘ ABSTRACT: 
0035 1! 
0036 1! rte module contains a procedure which returns a pointer to 
FHA ! the RAB of a unit. 
484 : ENVIRONMENT: User mode - AST reentrant 
s'8 ' AUTHOR: Steven B. Lionel, CREATION DATE: 13-Jan-1982 
$028 1 ' MODIFIED BY: | 
044 1 i 
045 1 ! 1-001 = Original. SBL 13-Jan-1982 
0046 1} 1-002 - Use prologue file. SBL 1-Nov-1982 
0047 \: ie 
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FORSRAB FORSRAB = Return pointer to RAB of unit 16-Sep- 138% 09: $: 38 AX-11 Oh ieee v4.0 
1-002 Declarations 14- ~hep- FORRTL.SRCJFORRAB. g35e 
; ° 030 } %SBTTL ‘Declarations’ 

: ¢ : : } PROLOGUE FILE: 

; 54 1 

; é ; 130 1 REQUIRE ‘RTLIN:FORPROLOG'; ! FORS definitions 
: 1 1! 

3 8 1 § 1 ! TABLE OF CONTENTS: 

3 9 1 1! 

$ 60 124 1 

; 61 125 1 FORWARD ROUTINE 

$ ° ; $ : FORSRAB; ! Return pointer to RAB 
; & 128 1! 

s 65 4 9 1 ! MACROS: 

3 66 150 1! 

2) or 0131 1! NONE 

; @& 01 ; 1! 

3 69 01 1 ! EQUATED SYMBOLS: 

3 70 0134 1! 

3 71 0135 1! NONE 

3 7 01 $ 1! 

3 7 01 1 ! FIELDS: 

. a 0138 1! 

2) 0139 1! NONE 

3 7 0140 1! 

bal. 0141 1 ! OWN STORAGE: 

Ee. pies 1! 

:; 79 0143 1! NONE 

; 0144 1! 

3 81 0145 1 ! EXTERNAL REFERENCES: 

3 8 Bt68 . 

: 2 0147 1 

; (84 0148 1 EXTERNAL ROUTINE : 

3 85 0149 1 FORSSCB_FETCH: CALL_CCB NOVALUE, ' Get CCB of unit 
3 86 0150 1 FORSSERR “ OPECLO: NOVALUE; ' Error handler 
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1984 00:41: AX-1 iss- -0- 
SoM: :53:58 Wath Sr BtS 84 


7 
p-1984 FORRTL.SRCJFORRAB.B32; 
ZSBITL "FORSRAB = Return pointer to RAB of unit' 
GLOBAL ROUTINE FORSRAB ( 

LUN: REF VECTOR C, LONG] ! Unit to return RAB of 


- Return pointer to RAB of unit if 
- Return pointer to RAB of unit 14 
f 


+e 
FUNCTIONAL DESCRIPTION: 


This procedure returns as its function value a pointer to 
the RAB of a FORTRAN LUN. 


CALLING SEQUENCE: 
RAB-pointer.wa.v = FORSRAB (LUN.rl.r) 
FORMAL PARAMETERS: 


LUN = The Logical unit number for which the address of the 
RAB is to be returned. Passed by reference. 


! 

i 

' 

i 

{ IMPLICIT INPUTS: 
NONE 

| IMPLICIT OUTPUTS: 
; NONE 

{ ROUTINE VALUE: 

x 


The address of the RAB for the unit, or zero if the unit is not 
a FORTRAN unit. 


SIDE EFFECTS: 
NONE 


BEGIN 


CAL 
UNWIND_ACTION: VOLATILE; 


GLOBAL REGISTER 
CCB = 11: REF SFORSCCB_DECL; 


1+ 
Enable error handler. Specify no operation on an unwind. 


ENABLE FORSSERR_OPECLO (UNWIND ACTION); 
UNWIND_ACTION =" FORSK_UNWINDNOP; 


'¢ 
! Call FORSSCB_FETCH to get the CCB of the LUN. It will signal 
' an error if Ehe LUN is invalid, and will place a zero in CCB if 


H 15 
ORSRAB FORSRAB = Return pointer to RAB of unit 16-Sep-1984 00:41:5 AX-11 Bliss-32 V4.0-742 P 
-002 FORSRAB = Return sinter to RAB of unit 12-808- 1382 00:43:3 FORRTL. RCJFORRAB_B32:1 _ 
; 146 09 ithe unit is not owned by FORTRAN. 
; 148 1} FORSSCB_FETCH (.LUN (OJ); 
: 131 18 RETURN .CCB; ! RAB address is CCB address 
: 152 15 END; ! End of routine FORSRAB 


-TITLE FORSRAB FORSRAB - Return pointer to RAB of unit 
DENT \1-002\ 


.EXTRN FORSSCB_FETCH, FORSSERR_OPECLO 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 
0800 00000 .ENTRY FORSRAB, Save R11 
D4 CLRL 


7E 00002 UNWIND ACTION : 

6D 0012 CF ODE 00004 MOVAL 1$, (FP) : 

6E 01 00 00009 MOVL #1, UNWIND_ACTION é 

04 BC dD 0000C PUSHL aL 3 

00000000G 00 01 FB QOOOF CALLS #1, FORSS$SCB_FETCH : 
50 5B D0 00016 MOVL CCB, RO 3 

04 00019 R 3 

0000 QOO1A 1$: «WORD Save nothing : 

50 08 AC 00 O001C MOVL BAP), RO : 

50 04 AO 00 00020 MOVL 4(RO), RO 3 

FC AO 9F 00024 PUSHAB UNWIND_ACTION : 

01 DD 00027 PUSHL #1 : 

5E 0D 00029 PUSHL SP 3 

7E 04 AC 7D SoOse MOVQ 4(AP), -(SP) : 

00000000G 00 03 FB 0002F CALLS #3, FORSSERR_OPECLO 3 
04 00036 RET 3 


; Routine Size: 55 bytes, Routine Base: _FORSCODE + 0000 


3; 153 0216 1 !<BLF/PAGE> 


~~ 
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FORSRAB FORSRAB = Return pointer to RAB of unit -Sep-1984 2 241:5 AX-11 Bliss-32 V4.0-742 Page 
1-002 FORSRAB = Return pointer to RAB of unit 12: -Sep-1984 :32:2 FORRTL.SRCJFORRAB.B32;1 ( 
s 55 0217 1 END ! End of module FORSRAB 
3 136 0218 1 

1 021 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _FORSCODE 55 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Bere a on a ene ae che ep ae ee Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$25S$DUA28: :ESYSLIBISTARLET 1 32:1 9776 0 0 581 00:01. 
> ~$255$DUA28:CFORRTL.OBJJFORLIB.L32; 711 179 25 52 00: 60:6 
; ~$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
4 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:F ORRAB/OBJ=OBJ$:FORRAB MSRC$:FORRAB/UPDATE=(ENH$: Ff ORRAB) 
; gtaes 55 code + 0 data bytes 

ime: 00:04.4 


3 ted Time: 00:13.8 
; Lines/CPU Min: 2979 

; Lexemes/CPU-Min: 4136 

3 penery Used: 63 pages 

; Compila 


tion Complete 


~— wm 
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